home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / wmsHeader.inc < prev    next >
Encoding:
Text File  |  2003-02-21  |  2.3 KB  |  76 lines
  1. <%
  2. '+-------------------------------------------------------------------------
  3. '
  4. '  Microsoft Windows Media
  5. '  Copyright (C) Microsoft Corporation. All rights reserved.
  6. '
  7. '  File:       Header.asp
  8. '
  9. '  Description:    Responsible for creating a standard HTML header for each page
  10. ' 
  11. '  Dependencies: LocStrings.asp, WMSConstants.asp, Refresh.asp
  12. '
  13. '--------------------------------------------------------------------------
  14.  
  15. '////////////////////////////////////////////////////////////////////
  16. Sub WriteFramesetDocType()
  17. %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN"><%
  18. End Sub
  19.  
  20.  
  21. '////////////////////////////////////////////////////////////////////
  22. Sub WriteMetaTags()
  23.     Response.CacheControl = "no-cache"
  24.     Response.Expires = -1
  25.     Response.AddHeader "Pragma", "no-cache"
  26. %>
  27. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8"/>
  28. <META NAME="Description" CONTENT="<%= Server.HTMLEncode( L_ASPADMINDESCRIPTION_TEXT ) %>"/>
  29. <META HTTP-EQUIV="EXPIRES" CONTENT="-1"/>
  30. <META HTTP-EQUIV="PRAGMA" CONTENT="no-cache"/>
  31. <META NAME="ROBOTS" CONTENT="NOINDEX"/>
  32. <META NAME="MS.LOCALE" CONTENT="<%= Server.HTMLEncode( L_MSLOCALE_TEXT ) %>"/>
  33. <%
  34. End Sub
  35.  
  36.  
  37. '////////////////////////////////////////////////////////////////////
  38. Sub WritePageExpiration()
  39.     Response.ExpiresAbsolute
  40.     Response.Expires = -10000
  41. End Sub
  42.  
  43. '////////////////////////////////////////////////////////////////////
  44. Sub WriteHTMLFramesetHeader()
  45. WriteFramesetDocType
  46. Response.Write("<HTML>")
  47. WriteMetaTags
  48. WritePageExpiration
  49. 'WriteRefreshMetaTag
  50. End Sub
  51.  
  52. '////////////////////////////////////////////////////////////////////
  53. Sub ForceCodepage()
  54. if( ( brMSIE = Session( "BrowserType" ) ) and ( 0 < Len( Request.QueryString("instance") ) ) ) then
  55. %><!-- forcing the codepage... <%= RemoveDangerousCharacters( Request.QueryString("instance") ) %> --><%
  56. end if
  57. End Sub
  58.  
  59. '////////////////////////////////////////////////////////////////////
  60. Sub WriteHTMLHeader( strTitle )
  61.     if( 0 = Len( strTitle ) ) then
  62.         strTitle = L_WMSWEBADMINTITLE_TEXT
  63.     else
  64.         strTitle = strTitle
  65.     end if
  66. %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  67. <HTML>
  68. <HEAD><%
  69. WriteMetaTags
  70. %><title><%= Server.HTMLEncode( strTitle ) %></title>
  71. <% WritePageExpiration
  72. ForceCodepage
  73.  
  74. End Sub
  75. %>
  76.